home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HyperHackers.cpt / Hyper-Hackers Queue 1.0 / card_3209.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  54 lines
  1. -- card: 3209 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3797
  5. -- name: 
  6.  
  7.  
  8. -- part contents for background part 1
  9. ----- text -----
  10.  
  11. From: PUGH@NMFECC.ARPA
  12.  
  13.  
  14. Here is a simple script to add to your Home stack that is very handy for 
  15. dealing with the Help pages:
  16.  
  17. on doMenu x
  18.   if x is "Help" then
  19.     go to card "HyperTalk" of stack "Help"
  20.   else
  21.     pass doMenu
  22.   end if
  23. end doMenu
  24.  
  25. Here's another one that works with the extendend keyboard (USS Saratoga):
  26.  
  27. On functionkey whatkey
  28.   if whatkey is 1 then
  29.     type "z" with CommandKey    - undo!
  30.   else if whatkey is 2 then
  31.     type "x" with CommandKey    - cut!
  32.   else if whatkey is 3 then
  33.     type "c" with CommandKey    - copy!
  34.   else if whatkey is 4 then
  35.     type "v" with CommandKey    - paste!  Like they say!
  36.   else if whatkey is 5 then
  37.     choose browse tool        - browse
  38.   else if whatkey is 6 then
  39.     choose button tool        - button
  40.   else if whatkey is 7 then
  41.     choose field tool        - field!  Without a menu!
  42.   else if whatkey is 8 then
  43.     type "x" with commandkey  - Cut whatever is seleted
  44.     domenu "background"       - enter the background
  45.     type "v" with commandkey  - Paste it
  46.     domenu "background"       - leave the background
  47.   end if
  48. end functionkey
  49.  
  50.  
  51.  
  52. -- part contents for background part 45
  53. ----- text -----
  54. DoMenu and FunctionKeys